Imports MbUnit.Framework
Imports QS = AppliedRecognition.Speech.QuickSwitch

<TestFixture("HTML Help")> _
Public Class HTMLTest

    Dim d As QS.CommandDispatch
    Dim u As New Util

    <Test()> _
    Sub NoMenuGetMinimalHTML()
        Dim h As String = d.GetHTMLHelp("")
        Dim expected As String = u.GetConfigFileAsString("BlankHTMLHelpResults.htm")
        Assert.AreEqual(h, expected)
    End Sub

    <Test()> _
    Sub GlobalMenuHelp()
        Dim h As String = d.GetHTMLHelp("GlobalMenu")
        Dim expected As String = u.GetConfigFileAsString("GlobalMenuHelpResults.htm")
        Assert.AreEqual(String.Compare(h, expected), 0)
    End Sub



    <TestFixtureSetUp()> _
    Sub FSetUp()
        u.WriteConfigFileToDir("DevComplete.lic", IO.Path.Combine(Environment.CurrentDirectory, "runtime.lic"))
        d = New QS.CommandDispatch

        QS.My.MySettings.Default.SpeechEnabledAtStartup = False
        QS.My.MySettings.Default.DisplayTimout = 50
    End Sub

End Class
